home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / scheme / pcscheme / geneva / pcscheme.exe / BIN / MSDOS.FSL < prev    next >
Encoding:
Text File  |  1993-11-02  |  2.7 KB  |  56 lines
  1. #!fast-load 4.0 MINIBOOT (sources\s\msdos.s)
  2. h002E 07A3
  3. x07DOS-DIR
  4. x0BDOS-GET-ENV
  5. x0BDOS-PUT-ENV
  6. x0FDOS-SEARCH-FILE
  7. x08DOS-CALL
  8. x06SW-INT
  9. x0ADOS-DELETE
  10. x0BDELETE-FILE
  11. x0DDOS-FILE-COPY
  12. x0ADOS-RENAME
  13. x0DDOS-FILE-SIZE
  14. x09DOS-CHDIR
  15. x0BDOS-GET-DIR
  16. x10DOS-CHANGE-DRIVE
  17. x16%ERROR-INVALID-OPERAND
  18. s0001@
  19. c3A
  20. x0CFILE-EXISTS?
  21. s000FDOS-FILE-SIZE: 
  22. s0010 does not exist!
  23. x06%ERROR
  24. x0EFILENAME-SPLIT
  25. s0000
  26. x09FILESPEC2
  27. x0DSTRING-APPEND
  28. s000CDOS-RENAME: 
  29. s0010 already exists!
  30. x1B%ERROR-INVALID-OPERAND-LIST
  31. s000FDOS-FILE-COPY: 
  32. s000CDOS-DELETE: 
  33. x0FERROR-PROCEDURE
  34. lx04ARGSn
  35. x04ARGS
  36. i00FF
  37. x10WINDOW-SET-SIZE!
  38. i0084
  39. x0CSTRING-NULL?
  40. s0007COMSPEC
  41. s0003/c 
  42. x09READ-CHAR
  43. x11WINDOW-GET-CURSOR
  44. x07CONSOLE
  45. x12WINDOW-SET-CURSOR!
  46. x0CSTRING->LIST
  47. c0D
  48. x0CLIST->STRING
  49. t<C<<σ<╕<± <ß <o<î    <Y    
  50. <±
  51.  <x   <4  
  52. <
  53. 
  54. ;Å" Φ;
  55. 5 "%@Å"@ Φ  ; 5  Φ ;"Z@Å"C@ ╞ ⁿ\ⁿ ⁿ"  ╟ f "    Φ Φ; 5  Φ ;Å"F4" Φ ; ╞$(╞(,╓ $,(5
  56. 5  Å "  Å # Θ4 # «4C e " N < ╨■ 4@4C4E   4 4 " *╞ (,╞,0╓ (0,4 Φ  ;╞ (,╞,0╓ (0,5     5 q j A j@ q9 Å "  Å # ô4 " Y4I e " 2 < {■ 4E 4  Φ  ;╞ (,╞,0╓ (0,5 5 q j A j@ q9Å"P4"
  57.  Φ ; ╞$(╞(,╓ $,( 4; 5 ▌  @  C  E" I  M" N  EE" EE@  E E  A " E E  C    Ñ $ⁿ$\ⁿ  ⁿ"    < W■(, O(,5  _ ê "  !\ ê " ( \  "  ( (5  Φ   ; 5  q j A j@ q9"@  " C " C   E"I EÑ^"EC ╨ Å "   Å # + ` " 8 "# #4 ╘    ╙   $$$4 " %4   $(,e(,"( (,e(,ê("(#,0&4&╞48D,╞DH(0╓(84,HD (( $0n ,Ü,0$ Φ$ ,0 $$(`$("$D$(_$("$
  58.  '4  ()4()╙(@A *)4(,╒(,  ; ;╞á+4O ,o q  - 5Å" &Φ; 5 Å"%ΦÆê; 5 Å" $Φ; 5 Å""Φ " 0 O; ; 5 Φ"0φ  O ;;
  59. z
  60.